home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib14.dsk
/
PAGE FLIP TEST.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
672b
|
15 lines
10 HGR : HGR2 : CALL 37799
20 POKE 251,144:YINCR = 2: POKE 227,YINCR
30 HR = 2:HL = 0: POKE 254,HR: POKE 255,HL: REM START SHAPE ON LEFT SIDE OF SCREEN
35 POKE 252,2: POKE 253,13: REM SET INITIAL VALUES FOR VT/VB
36 POKE 230,64: CALL 37524: REM DRAW AT VT-YINCR/PAGE 2
37 POKE 230,32: CALL 37574: REM DRAW AT VT/PAGE 1
45 FOR X = 1 TO 40
50 CALL 37556: CALL 37581: REM USE FLPDN ROUTINES
60 NEXT
65 CALL 37556: CALL 37470: REM DRAW AT VT-YINCR AND VT+YINCR/PAGE 2-RETURN TO VT
70 FOR X = 1 TO 40
80 CALL 37500: CALL 37531: REM USE FLPUP ROUTINES
90 NEXT
100 CALL 37561: CALL 37470: REM DRAW AT VT-YINCR AND VT+YINCR/PAGE 2-RETURN TO VT
110 GOTO 45